home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / data / pvap322a / pvapmail.plp < prev    next >
Text File  |  1993-11-30  |  2KB  |  94 lines
  1. /************************************************************************
  2. *    未読メールを読む（ダウンする）                    *
  3. ************************************************************************/
  4. %RMAIL{
  5.     WAIT;
  6.     footnote({未読メールを読んでいます});
  7.     mkdir2(LOGPATH|{\VANMAIL});
  8.     type({J MAIL\n});
  9.     wait({60},STOP,    {よろしいですか(Y,N)=},    {type({\n});WAIT},
  10.             {よろしいですか=},    {type({\n});WAIT},
  11.             {番号またはコマンド=},,
  12.             {,J)=},);
  13.     type({1\n});
  14.     wait({120},STOP,{(READ)},);
  15.     A:=0;
  16.     B:=1;
  17.     loop({
  18.     wait    ({120},STOP,
  19.         {未},            {A:=A+1;im({Yes})},
  20.         {済},            {WAIT;im({No})},
  21.         {,DLn)=},        {type({\n});im({Yes})},
  22.         {番号またはコマンド=},    {type({\n});im({Yes})},
  23.         {訂正},            {WAIT;im({No})});
  24.     });
  25.  
  26.     loop({
  27.     receive    (LOGPATH|{\VANMAIL\}|
  28.         @crefile(LOGPATH|{\VANMAIL},{EML}));
  29.     type({RB}|B|{\n});
  30.     loop({
  31.     wait    ({120},STOP,
  32.         {バイナリ},    {WAIT;stoprec;type({DL\n});WAIT;type({2\n});
  33.                 wait    ({60},STOP,
  34.                     {起動して下さい。},
  35.                     {wait({3});
  36.                     mkdir2(LOGPATH|{\VANBMAIL});
  37.                     setcdir2(LOGPATH|{\VANBMAIL});
  38.                     case    (DIR2={},
  39.                         {No},
  40.                         {command(DIR2|{\QV})},
  41.                         {Yes},
  42.                         {command({QV})});});
  43.                 wait({2});type({\n});
  44.                 setcdir2(DIR1);
  45.                 wait({60},STOP,{リターンキーを押して下さい=},);
  46.                 type({\n});
  47.                 WAIT;
  48.                 im({No})},
  49.         {受信者},    {MAILID:=@tail(@laststr,{発信者：},{\n});
  50.                 im({Yes})},
  51.         {文書名},    {loop({
  52.                 wait({900},STOP,
  53.                     {,RT,PF,J,DL)=},,
  54.                     {たはコマンド=},);
  55.                 wait({1});
  56.                 case(@laststr({13}),
  57.                     {,RT,PF,J,DL)=},{im({No})},
  58.                     {たはコマンド=},{im({No})},,
  59.                             {im({Yes})});
  60.                 });
  61.                 stoprec;
  62.                 im({No})});
  63.     });
  64.     case    (MAILID={MHSX400},
  65.         {No},    {var MENDATA[1000];
  66.             write(DIR1|{\PVAPLIST.DAT},{});
  67.             MENDATA:=@read(DIR1|{\PVAPLIST.DAT});
  68.             %NOLINE @noline(MENDATA);
  69.             C:=1;
  70.             %chkid{
  71.             loop({
  72.             case    (@head(@getline(MENDATA,C,1),{\n}),
  73.                 MAILID,
  74.                 {im({No})},,
  75.                 {case    (NOLINE=C,
  76.                     {Yes},    
  77.                     {write(DIR1|{\PVAPLIST.DAT},
  78.                         MAILID|{\n});
  79.                     im({No})},,
  80.                     {C:=C+1;im({Yes})})});
  81.             });
  82.             };
  83.             case    (NOLINE={0},
  84.                 {Yes},{write(DIR1|{\PVAPLIST.DAT},
  85.                     MAILID|{\n})},,{chkid})});
  86.     B:=B+1;
  87.     case(B>A,{Yes},{im({No})},,{im({Yes})});
  88.     });
  89. };
  90.  
  91. /*    実行    */
  92. var MAILID[50];
  93. RMAIL;
  94.